home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Trading on the Edge
/
Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin
/
mac
/
Mac_Files
/
Vendor Demos
/
Mathematica
/
MathReader
/
Mathematica Demo Notebooks
/
Color Movie
< prev
next >
Wrap
Text File
|
1993-02-10
|
12KB
|
130 lines
(*^
::[ Information =
"This is a Mathematica Notebook file. It contains ASCII text, and can be
transferred by email, ftp, or other text-file transfer utility. It should
be read or edited using a copy of Mathematica or MathReader. If you
received this as email, use your mail application or copy/paste to save
everything from the line containing (*^ down to the line containing ^*)
into a plain text file. On some systems you may have to give the file a
name ending with ".ma" to allow Mathematica to recognize it as a Notebook.
The line below identifies what version of Mathematica created this file,
but it can be opened using any other version as well.";
FrontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.2";
MacintoshStandardFontEncoding;
fontset = title, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, M7, bold, L3, e8, 24, "Times";
fontset = subtitle, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, center, M7, bold, L2, e6, 18, "New York";
fontset = subsubtitle, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, center, M7, bold, L2, e50, 14, "New York";
fontset = section, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, grayBox, M22, bold, L2, a20, 14, "New York";
fontset = subsection, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, blackBox, M19, bold, L2, a15, 12, "New York";
fontset = subsubsection, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, whiteBox, M18, bold, L2, a12, 10, "New York";
fontset = text, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 12, "Times";
fontset = smalltext, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Times";
fontset = input, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L2, 12, "Courier";
fontset = output, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, output, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier";
fontset = message, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L2, 12, "Courier";
fontset = print, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier";
fontset = info, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier";
fontset = postscript, PostScript, formatAsPostScript, evaluateAsCurrentKernel, output, inactive, nowordwrap, preserveAspect, groupLikeGraphics, M7, l35, w160, h162, L2, 12, "Courier";
fontset = name, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, B65535, L2, 10, "Geneva";
fontset = header, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Times";
fontset = leftheader, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, nohscroll, preserveAspect, L2, 12, "Times";
fontset = footer, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, noKeepOnOnePage, preserveAspect, center, M7, L2, 12, "Times";
fontset = leftfooter, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, preserveAspect, center, L2, 12, "Times";
fontset = help, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Geneva";
fontset = clipboard, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York";
fontset = completions, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York";
fontset = special1, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York";
fontset = special2, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, center, M7, L2, 12, "New York";
fontset = special3, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, right, M7, L2, 12, "New York";
fontset = special4, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York";
fontset = special5, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York";
paletteColors = 128;
]
:[font = title; inactive; preserveAspect; startGroup]
Spinning Stellated Icosahedron
(for color monitors)
:[font = text; inactive; preserveAspect]
This Notebook contains an animated ╥movie╙ produced using built-in Mathematica functions and a standard Mathematica package. To show the movie,
Ñ Scroll until the first graphics cell is completely visible in the window.
(The movie is shown in this cell.)
Ñ Double-click the first graphics cell to start the movie.
Click again anywhere to stop the animation.
;[s]
5:0,0;67,1;78,0;105,1;116,0;380,-1;
2:3,14,9,Times,0,12,0,0,0;2,14,9,Times,2,12,0,0,0;
:[font = text; inactive; preserveAspect]
See the file Read This First! for a more detailed explanation of how to run a movie, and how to control its speed and direction. Mathematica generates all graphics in PostScript, but the images here were saved as bitmaps to conserve disk space.
;[s]
5:0,0;13,1;29,0;129,2;141,0;246,-1;
3:3,14,9,Times,0,12,0,0,0;1,14,9,Times,1,12,0,0,0;1,14,9,Times,2,12,0,0,0;
:[font = postscript; PICT; formatAsPICT; output; inactive; Cclosed; dontPreserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; startGroup; pictureID = 29265; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 5050; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 13715; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 19388; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 25199; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 7923; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 24329; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 15271; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 7734; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 9024; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 29355; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 2655; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 4077; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 18271; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 23528; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 4166; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 7056; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 9504; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 28844; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 25330; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 8673; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 23027; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 27967; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 30683; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 26434; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 879; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 3447; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 31372; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 8188; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 4618; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 929; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; endGroup; endGroup; pictureID = 1810; animationSpeed = 8]
^*)